﻿Public Class Producto
    Implements IProducto


    Public Function ListaProducto(ByVal dni As String) As System.Data.DataTable Implements IProducto.ListaProducto
        Dim tabla As New DataTable("dtProducto")
        tabla.Columns.Add("CodigoProducto")
        tabla.Columns.Add("NombreProducto")
        tabla.Columns.Add("Linea")
        tabla.Columns.Add("DNI")
        tabla.Columns.Add("NomProd")

        Dim fila1 As DataRow = tabla.NewRow()
        fila1("CodigoProducto") = 1
        fila1("NombreProducto") = "Tarjeta Visa"
        fila1("Linea") = "5000"
        fila1("DNI") = "25854703"
        fila1("NomProd") = "Tarjeta Visa  -   S/.5000"

        Dim fila2 As DataRow = tabla.NewRow()
        fila2("CodigoProducto") = 2
        fila2("NombreProducto") = "Tarjeta Master"
        fila2("Linea") = "6000"
        fila2("DNI") = "05064367"
        fila2("NomProd") = "Tarjeta Master  -   S/.6000"

        Dim fila3 As DataRow = tabla.NewRow()
        fila3("CodigoProducto") = 3
        fila3("NombreProducto") = "Tarjeta MasterCard"
        fila3("Linea") = "4000"
        fila3("DNI") = "25854703"
        fila3("NomProd") = "Tarjeta MasterCard  -   S/.6000"

        tabla.Rows.Add(fila1)
        tabla.Rows.Add(fila2)
        tabla.Rows.Add(fila3)


        Dim dtResult As New DataTable("dtProductoDNI")
        dtResult.Columns.Add("CodigoProducto")
        dtResult.Columns.Add("NombreProducto")
        dtResult.Columns.Add("Linea")
        dtResult.Columns.Add("NomProd")

        Dim i As Int16 = 0
        For x As Int16 = 0 To tabla.Rows.Count - 1
            If tabla.Rows(x).Item("DNI") = dni Then
                Dim fila6 As DataRow = dtResult.NewRow()
                fila6("CodigoProducto") = tabla.Rows(x).Item("CodigoProducto")
                fila6("NombreProducto") = tabla.Rows(x).Item("NombreProducto")
                fila6("Linea") = tabla.Rows(x).Item("Linea")
                fila6("NomProd") = tabla.Rows(x).Item("NomProd")
                dtResult.Rows.Add(fila6)
                i = i + 1
            End If
        Next


        Return dtResult
    End Function
End Class
